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} File: SRTSPC.REQ IDENT = ‘V04-000' ! File: SRTSPC.REQ Edit: PDG3028 
i 
i eeeeeeeeeeeeeeeeeeereneeeeeeeneeeeeeeneeeereneeenereeeeeeeeeeeeeeneeeeeeeeer 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, " MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
® 
' % 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
iw INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
it SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
it CORPORATION. x 
* 
® 
+ 
® 
® 
® 


ie DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LRA EERE EAE RARER ERATE 


FACILITY: VAX-11 SORT/MERGE, PDP=11 SORT/MERGE 
ABSTRACT: 


This require file is for data structures returned from specification 
file processing. 
This file is used as a library source. 


ENVIRONMENT: VAX/VMS user mode 
AUTHOR: V. Bennison, CREATION DATE: 03-May-1982 
MODIFIED BY: 


31-Aug-1982 PDG 

Add definitions met are required for SRTSPC.BLI. 
T03-016 Rework TDT table ive precedence to AND/OR. PDG 13-Dec-1982 
T03-017 Add WF_N me AMES, cfr’ A ices of work file names. PDG 26-Dec-198 


3 DT_VAR. PDG 5-Jan 

Reaves PT /SY ADR: Reged URK Klee 8 BS S.DECR- PDG 26-Jan-1983 
3 

3 


01 
-01 
FDT_SCA Lf an A_PAD. 
‘i saute on A. peck r9¢ in. KT UNITS, 983° 11-Feb-1983 

Remove unreferenced fie 
4 Work around Bliss bu with’ fe nina at mene, ! -May-1983 
5 pot tne KFT NDE 5} 2. or B =Jul-1 
§ Pu WHILE_FAIL— here. PDG 1- a 

a P gn slahents in CON_SYM_TAB. PDG 1-Aug-1983 

8 Make sharing of code easier to “maintain. PDG 31-Jan-1984 
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13Sep- 198 29:69:98 “835 


: TEST DEFINITION TABLE (TOT) 


' (SR De ee ee ee ee ee Se See See SSO SOOO Geaneanaaneea See eee eeoeneneneaneaeae 
LITERAL 
TDT_MAX = 255, 'maximum number of entries in TDT 
TOT_UNIT = 4; ' Size in bytes 
STRUCTURE 
TOT_TABC 0,B8.P,S,E; 8S ] = 
C BS*TbT UNIT 3 
( TOT_TAB + O*TDT_UNIT + B )<P,S,E>; 
MACRO 
TDT_TRUE = 0,0, 1.0%, ! Set to simply return TRUE 
TDOT_C m By Be Be 8 i, ! The comparison flags 
TOT_EQL = 6. 1, 1, 0%, : True if ‘Equal to’ succeeds 
TOT_LSS = Q, ¢° 1, 0%, ' True if “‘Less than’’ succeeds 
_GTR ® 8, Fe Toe @ he ' True if ‘Greater than’’ succeeds 
TDOT_CONSTANT= 0, 4, 1, 0 &, ! True iff FLD_TWO is to CFT 
TDT_FLD_ONE = 1, 0, 8, 0 %, ! Index in FDOT of 1st field 
TDT_FLD TwO = ¢° 0, 8. 0%, ! Index in FDT (or CFT) of 2nd field 
TDT_GOTO = 3,0, 8 02; ! TDT index adjustment 


! This structure should only be referenced by the routines that builds it, 
! and the routine SORS$$TDT! 


This table is used as follows: 
i Set IX to the index of the test description to test 
‘Loop: If TOT_TRUE is clear then return TRUE 7 
If the comparison between FLD_ONE and FLD_TWO is true 
- (according to the EQL/LSS7GTR bits) 
en 
' if TDT_GOTO is zero then return false else add TDT_GOTO to IX 


else 
add 1 to IX 
goto Loop 
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se 90:20:58 VAK=IT BLigs=32 v4s0-742, Page 8 


i KEY/DATA FIELD TABLE (KFT) 


LITERA 
Rrt MAX = 255, mes fave number of entries in K 
KFT_UNIT = 8; ! Size in bytes. ee ie even a bliss16 
! ale. of 16 bit field 
STRUCTURE 
KFT_TABC 0,8,.P,S,E; 8S ] = 
{ BS*KFT UNIT 3 
( KFT_TAB + O*KFT_UNIT + B )<P,S,E> 
MAC 


RO 
KFT_NDE_POS = 0, 0, 16, 0 %, 


Starting position in node 


KFT_CONTINUE = 3, 0, 0 x, ' Continue = 1 

KFT_CONSTANT = 3. 1; i" 0 x, ' True iff FDT_IDX is to CFT 
KFT_CONT CDX = 3, 2, 1, 0%, ' Continued condition = 1 
KFT-CONDR = 3, 3, 1, 0 %, ! zene tiene: field = 
KFT“BUILD = 3; 4, 1.0%. i Build the key = 

KFT_DESCEND = 3, 5, 1, 0 %, ! Asc/desc, descend = 1 
KFT_DATA © Be Oe 3a BE ! Key or data, data = 1 
KFT_FDT_IDX = 4, 0, 8, O %, !' Index in FDT (or CFT) 
KFT_TDT_IDX = 5, 0, 8, 0 %, ! TDT index for forces 
KFT_NDE_SIZ = 6, 0, 16, 0 2%; ' 


| 
! Size (bytes) in internal node 
} 
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: RECORD DEFINITION TABLE (RDT) 


LITERAL | 
RDT_MAX = 64, 'maximum number of entries in RDT 
RDT-UNIT = 6; i Size in bytes | 
STRUCTURE 
ROT_TABC 0,8.P,S,E; BS ] = 
C BS*ROT UNIT 
( RDT_TAS + O#RDT_UNIT + B )<P,S,E>; 
MACRO 
RDT_INCLUDE = 


° ' Include/omit, Include = 1 
° Conditional = 1 


RDT_TDT_IDX = 
RDT“KCT-ADR = 
RDT-KFT-IDX = 4 


° . . ' Index into TDT 
° 1. ° ' For Sort-11 only 
- 8 0%; ! Index into KFT 


il 0 
RDT-CONDX = 0 
1 

2 


ooo -oO 


! The RDT table is scanned sequentially until either an unconditional entry is 
! found, or until a condition (via RDT_TDT_IDX) passes. This matched entry 
i describes whether to omit or include the record (RDT_INCLUDE). If included, 
: then RDT_KFT_IDX is used to index the KFT table, for record reformatting. 


1320-1966 90:20:38 


01 66 ' eecceeeeco Seeeeeoeocoeeeeeeeeeseeeeseesesecececeeeeceeseeeeeesesse 
Hn e4 CONSTANT FIELD TABLE (CFT) 
198 LITERAL 
170 CFT_MAX = as ‘maximum number of entries in CFT 
71 CFT“UNIT = 2+£BPADDR/8; i Size in bytes 
8158 STRUCTURE 
174 CFT_TABC 0,8,P,S,E; BS J = 
175 C BS*CfT UNIT 3 
178 ( CFT_TAB + O*CFT_UNIT + B )<P,S,E>; 
0178 0 
0179 CFT_CON_LEN = 0, 0, 8, 0% ! Length of constant 
0180 0 CFT[CONTADR = 2, 0, XBPADDR, 0 %; ! Address of constant 


VAX-11 Bliss 
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5 1 1 ' ewe nsroen = RD me eee ae me  —eec ores Se eer 2 ewer roe 3 
; ; g COMMON DEFINITIONS : 
: 0184 ; 
34 3 5 ZIF XBLISS(BLISS32) 3 
; 1 $ XZTHEN : 
; 01 LIBRARY ‘SYSSLIBRARY: STARLET’; ; 
: 3 8 8 LIBRARY ‘SRC$:SORLIB'; : 
; U 0189 ZELSE : 
; U 8139 8 LIBRARY 'S11V3SRC:SMCOM'; : 
: 191 XFI : 
BS 8 : 
: Bilge 8 : Define the Linkage to the common routines : 
>; 0196 0 LITERAL $ 
; 0198 0 LINKAGES’ | 
>; 0199 QO CA_LINKAGE = PF 
; 0200 0 %BLISS32( CALL:GLOBAL(CA=COM_REG_CTX) ) ! MUST BE SAME AS CAL_CTXREG! , 
; O50: 0 ZBLISS16( JSR ), : 
3 Gg 0g 0 CA_LINKAGE Le = Same as CA_LINKAGE he an extra register : 
; 0203 0 XBLISS32( CALL: GLOBAL(CAZCOM” REG_CTX> LB=LB_REG 3 
; 0206 0 XBLISS16( JSR :GLOBAL( LB=LB_ REG) ), : 
; 0205 0 CA_LINK_SEGMENT = ; 
; _ 0206 8 4 LESS ig JSR ) . 
; P 0207 XBLISS32( JSB ( : 
; P 0208 O REGISTER=6 : 
: P 0209 0 REGISTER=COM_REG SRC2): ; 
; P0210 O GLOBAL (CA=COM_REG_C : 
3; P Osta PRESERVE (COM_REG_ SRCD) : 
7 PO \¢ NOTUSED(7,8,9) ‘ 
> 021 NOPRESERVECO, 1,2,3.4,5)); ; 
BIE 8 : 
3 ° \¢ 8 ; A macro to declare/get the address of the common area ‘ 
; 18 0 CRO ; 
; #4 19 8 CA_AREA : 
: ™ 0220 CIF ~$et 1$S (BL1SS32) ; 
; 8 1 8 ZTHEN ; 
A | ¢ EXTERNAL REGISTER : 
3; 0 ZIF ZNULL(X) XTHEN CA ZELSE X ZFI1 ; 
3; 4 = COM_REG_CTX: REF BLOCKCCTX_K_ SIZE) ; 
3; A 5 FIELO(CTX_FIECDS); : 
A | § ZELSE : 
7; 4 ZIF NOT ZNULL(X) . 
; #4 8 ZTHEN ; 
; 8 9 LOCAL . 
3; 4 0 REF BLOCK C, Z%UPVAL) FIELD (COM_FIELDS); : 
$ : 1 ZQUOTE® GET. IMPAREA_ ( x KX); ‘ 
; § RFI 2; : 
3 5 Specification file error messages : 
; 'LITERAL : 


9 


(7) 


Page 


SRCISRTSPC.REQ;1 


0-74 


357ee R93" 


Bli 


SASDUA2 


VAX 
82 


Sep-1986 22:49:58 


g-se 


1 
1 


Tere ~ 
e - oe . ze .**s 
o sae ~mn 8 = PRES eee ese eeeeaes 
= ze ~~ t oe ve en PLHL VL FE HL FL VL PL PL 
ae c ~ enN~ A 7 pene 
c a °o ~~ ee ~a-- | ~~ « te | Pe tn tae tam ean tan tem ta 
oc v - = <q<aw =x n>-aa0 s#eepeeueges 
-o = - "ean wt &ae ce oOo o> Sn aenanan~c 
San - ce “oO | eoaovrt >So woo a~-a—4>0a—"a 
caw - ov w tu Oct aww owow tt <q{viitnainane 
ove v cer VvVvye -—--—-o I weet eeeeeuuegrn 
—- cy owe ooc weit es > maaow | ull gull aud gee ged eee aoe ae oe 
eer a — Br caw “NUM wrtrteew aounwnwr OOG 
Oe w ~vev aaz —-ov@ma mMVUMMNYU qe) aera 
v + ® s — 4 ss scan qd scaccax 1 i 1! i’ 6 
—- ev v 
-ae wr ee ooo oooo ooo0o[0oo 5555555 
-anQ cw -wv VvuuU YVYUULU VWYUVUOUUY VBYVVUUVVUUY 
,. Ww oe - @&w sare 
eoeoo Se vtrr veee 
eacw cor eve 
emeecnvnoeer a oOo an 
e® @#0ouvruwenr- HB <> 
cewvwow cS) ~ & —w~ . 
=x @ v7eoeoc ado ao . . ee oe 
evuovuvvovcaaccv Z2zz ws 64 aé at w 
Oren eer Hr ct) =<z< aw an wu w” esse eeee 8 
Bete Oe we wervD aa. >oO ww += Puss = + (ne 4 4. 1-4-4. 4 
ee - 620 -OoO5 <>< -—a s 4 od wrttwwo &¢ o-o—6o—0o-—oa 
~¥@> > vo 80 ~— uu ow Odmt—w MeVIIY —] <YaANENEYNS 
CcCrocct @&@—@ec rv aa —- £9 Lmao + ‘t+ om tas e#eeuveeeedn 
@orrroacor cBOec ae | ceca wos | © aqoodc«<aan 6 FRR rrr eee 
te aA VST Vue wus o>w “Orv Swwkee > YY OO eer OOO 
QD oe o2 of —— VYO=z —-Vovoa OuvwMMmwWo 4-2 Se fe ee 
-OOocovvvvl0vv0v verve c ‘ee #eeesd s#eeecees & #eeeeseeees 
eC C Cer rer BEER o £z=z (+ = = = 9 =Zzzzzzc © ZEEE z= 
ed ed ed ed - Ooo ooo0o ooo000 £ oo oooo 
Sccceeeeaaneaaan aa + YVuUY VSYVUVOYU CFC VeEVUVYVY ££ VYUVUUUUUWU 
metttrreeeF>p> > zz ea ~wew ~~ wee ee ee o ewww wesw oO eee 
Cc@@aecccccccc <a € tee eet we sesueoeeesn s#eeeveeeuete 
- B33 Beer er er ee aa = ee wo 
em Om Cm em em ee em eee ped) 2& ana anand e 2a0a8ao $s 2anaanKnaanAad 
pee © 222 c Z2aa2 £ 222222 FESESE SES: 
mn" aaa oaaaaae o aaaaaa *» aaaaaaaaa 
wow 2? we 2 2 2 2 oe ee 2 2 Se SS ee ee ee Se ee St 
-— oO Uiusw ~—- Wi C Uist C Us 
oo HH verveve GB Pevevereve -— Peveveoeveve -— He ve oe veo neve rere 
*2s 8s 8 8&8 8&8 & & & Bee “ p= pe oe e a 
<IewMwuwa Ywouwox<éM a=) oo ,v wut we nuununu ® wuununnun ~ nnnnunnnunn 
322>——>>>>>>>> — reve °o °o =~ eo 
OO RU as tt eg gs eo . _ 2 e€ 
—VOVVVVOEVUUYLYU - uu a « c «@ i 
@waaaaaaaaaaa - > - ee <= aa oso 
AMNMNMNNAMNMNNMNMNYNM ann a Ow 6S 4 w > >> + 
seeeeeeeespes v0 AD>> on oo o« o oo © 
PBAAABAADAAARAAA c mee j{ we Cc w = so =< Qu (s+ & ENQnacrnacne 
Qaacaaacaacacaca eo Mixx z OVw —- Eanwvw c >OoOoOwwag - -—2a—-a~— 
fololelololaleolelololalq) a Yw~w wwe + DMOn-w ese Owwww oO “Maqnanan 
ANANMNAMNMNNMNMNMNMMNOM =x wee “~ ov tt @ xno Sotee ope e eeeueeuetecs 
of ~ oo@c —~ witititese fF «x ~~ 8 Ferree eee 
nhunnnnnnnnnun aoo j £€aect Ss eH RB wT Ter OO MV Ook eee OOO 
°o0 aca o aar> 0 §MwYNOaA & MYYMMWY © EAM MYUuUuLP 
ZENA MOU OxX Me - w~eU ”" eettw eee et we seeets & eespeevpeses 
322>——->>>>>>>> Ys <<< <q<a<aaca <aq<<<<< <aq<<<<a<a<aa< 
OED rt at tt tt et ow IID UV WU UIOVVUVUUUY 
VV YVYVYVUUUUYUYU j —- 
@maaaaaagaadaaaa vv J 
ANAMNMMNMMNNNMNNMNMNNONYN @ 8 
€ zw oO 
ww « 
<« wt wv 
ed aed od = 
er PRPS TP 


COOOOOOCOOOSOSOSOSOSSOSOSOSOSOSOSOSSSSOSSOSSSSOSSSOOSSOSOSSOOOSSOSSSSSOO 


DRO KUM TMNOP- DRO KUM TINOR- DOO CUM AOK-NM TNO OOO 


PAGS SFIS SS SS RAMADAR AR ADD OOD ODO DORNER DODO DOHO GOR POO Se 


MOVIN NNN NNO OI N ONIN N IOI NINIOIOI OO OIO 
COOOCOOOSOOSOSOSSSOOSOSOOSOSOSSOSOSSSOSSSOSSOSSOSOSOSOSOSSSSOSSOSSSOSSSOSOSOSOSSSOo 


a 2 


PP CS HES HS HS HS HS HS HS ES HS HSS SSeS HSS HS HSS SS FS HS HSS SSS FS FS eee se SS FS FS FS SE FSFE SS *S FSS FSCS tere *S*S*S*S*S*S FHS 


J 


13 
1B-Se0-1984 B3 E988 “SSssSnGAsesceon yao sacisrrspc.reas1 om (ho 


; 95 CA_TDT_SIZ = ZEXPAND _(COM_TOT_SIZ, COM_TDT_SIZ_) %, 

:U 39 RIF XBLISS(BLISS16) ZTHEN 

3 U 4 CA_STAT_ADR = ZEXPAND _(0, COM_STAT_ADR_) %, ! user error buffer (address) 
3 U CA_USR_QRN = XEXPAND —(0, COM_USR_GRN.T %, ! address of user-written warning ro 
; U 4 CALIST_SPC_ERR = ZEXPAND _(0, COM_1ST_SPC_ERR_) %, ! first spec fatal error code 
:U 4! _ CALIST_SPC_LIN = ZEXPAND ~(0, COM_IST_SPC_LIN_) %, ! first spec error Line number 
: o8 CA_CONST_AREA = XEXPAND _(COM_CONST_AREA, COM_CONST_AREA_) %, ! constant area (address) 

; CA_WRK_ABR = ZEXPAND ~(COM_WRK_ADR, COM_WRK_ABR_) 2, ! address of work area 

; CA_WRK_END = REXPAND _(COM_WRK_END COM_WRK_END_) % ! address pest end of work area 
; 0 CA~WF_RAMES = ZEXPAND ~(COMTWF_NAMES, COM~WF_RAMES_) &; i counted List of indices into CFT o 
; UNDECLARE %QUOTE _; 

: A macro to expand fields 

fa 0 ZIF XBLISS(BLISS32) 

; 0 ZTHEN MACRO _(X,Y) = X &; 

3; U 0 ZELSE MACRO (X,Y) = Y 2%; 

; 0 <FI 

: ' Values for datatypes 

; 8 A negative value indicates that the datatype is not supported 

; 0 LITERAL 

: 8 DT_T = _(DSCSK_DTYPE_T, C$$), ! Character (text) 

BBE 8 BA Se: ABB? et pleas 

: 0 DT“DB = (+1, iss), i Dibol 

; 0 DTI“F = ~(DSCSK_DTYPE_F, F$$), | F-floating 

; 9 DT"D = ~(DSCSKDTYPE-D, F$$), | D-floating 

; DT_G = _(DSCSK_DTYPE_G, -1), ! G-floating 

; 0 DT"H = ~(DSCSKDTYPE-H, -1) | H=floating 

; 0 DT“P =—s_- =“ (DSCSKIDTYPE-P., P$$), | Packed decimal 

3 0 DT_B = _(DSCSK_DTYPE_B, B$$), ! Signed binary 

3 0 DT_U = _(DSCSK_DTYPE_BU, US$), ! Unsigned binary 

3 8 DT_NU = _(DSCSK_DTYPE_NU, D$$), |! Decimal unsigned 

; DT_NL) = _(DSCSK_DTYPE_NL I$$), ! Decimal leading separate 

BE 8 Bree = SERB tgo: HR | Beeinat Leming ouster 

3 s =. 2 x » | Decimal trailing separate 

3 0 DT_NRO = = (DSC$K-DTYPE_NRO, D$$), |! Decimal trailing overpunch 

; 0 DT_NZ = _(DSCSK_DTYPE_NZ, -1); ! Zoned decimal 

; UNDECLARE %QUOTE _; 

; MACRO 

; ! Macro to determine the length in bytes, given a KFT pointer 

; ' Note that this is not needed after the spec file parser is called, 

: since KFT_NDE_SIZ_ gives the same information. 

; KFT_UNITS_(KFT_PTR) = 

3 BEGIN 

3 LOCAL 
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THEN CRTC.FDT_IX, CFT_CON.LENI 


XIF IBL 1SS(BLISS32) XTHEN 
IF_.FDTC.FDT_IX, FOT_TYPE] EQL DT_P 


Be Ge Be Se Ge Se Ge Ge Ge Se Ge Be Ge Ge Ge Ge Se Se Ge Se Ge Se Ge Ge Se Se Se Ge Ge Se Ge Se Se Se ee Ge Ge Se Ge Ge Seas 


[ ond 


THEN 
gg? OTE-FOT IR. FOT_FLO_SIZJ/2 + 1 ! Length in bytes 


-FDTC.FDT_IX, 
END %; 


RIF XBLISS(BLISS32) 
THEN 


Character codes 


FDT_FLD_S12Z) 


LITERAL 
C_LBRACK = 2x'5B', ! Character ‘'C"’ 
C_RBRACK = 2x'5D', : Character ''}"' 
C_SLASH = 2X'2F', ! Character ‘'/' 
C_EXCLAM = Zx°21', ! Character ‘'!"' 
C_PERCENT = Zx'25', ! Character ‘'%"' 
C_COMMA = Zx'2Cc', : Character '',"' 
C_NULL = %x'00', : Character *"" 
C_QUOTE = 2X'22', ! Character ' 
C_L_PAR = %x'28', ! Character ‘'("' 
C_R_PAREN = 2X'29', ! Character ‘')"' 
C- COLON = IX'3a‘, ! Character '':"' 
C_EQUAL = 2X'3D', ! Character ‘'= 
C_LESS = Ix'3c', ' Character ‘‘<"' 
C_GREATER = &X'3E*, : Character ‘'>' 
C_DASH = 2X'2D', ! Character ‘'-" 
C_SPACE = 2x'20', ! Character " "' 
C_TAB = %x'09', ! Character HT 
C_CR = 2x'OD', ! Character CR 
er CLF = ZX'OA'; ! Character LF 
LITERAL 
C_OcT = 2X'6F', ! Lower case ‘‘o'', for octal number base 
C_DEC = 2X'64', : Lower case ‘'d'', for decimal number base 
C_HEX = 2x'78'; ! Lower case ‘'x'’, for hexadecimal number base 
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re ZBLISS(BLISS16) ZTHEN 


KEY COMPARISON TABLE (KCT) 


! This table is used 7 Sort-11 for fast access to the 
‘ key descriptions of keys that need to be compared. 


LITERAL 
KCT_MAX = 64, ‘maximum number of entries in KCT 
KCT~ “UNIT = 8: ‘size in bytes 
STRUCTURE 
KCT_TABC 0,8,P,S,E; 8S ] = 
C BSex¢T UNIT } 
( KCT_TAB + O*KCT_UNIT + B )<P,S,E>; 
MACRO 
KCT_CMP_ADR. = 0, 0, 16, 0 %, ‘address of comparison routine 
KCT_KEY_POS. = 2, 0, 16, 0 %, istarting position of key field 
KCT_KEY LEN. = 4, QO, 16, 0 %, ‘Length of key field 
KCT_CONTINUE, = 6, 0, 1, 0 %, ‘continue word 
KCT_DESCEND. = 6, 1, 1, 0%, ‘descend = 1, ascend = 0 
KCT_TYPE »s 70 8. © &s 'data type, used to reinitialize 
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WHILELFATL 


! F 

! T ire produces code that advances a table pointer through 

: successive entries until the entry s uncond'ttenel., or the 

: entry is conditional and passes f e fone tion. 

! The parameter to this macro (X) is the identification of the table. 
{ The table pointer must be of the form (X)_PTR, and the table must 
have the following fields: (X)_CONDX and Tx)_fDT_IDX. 


ACRO 
WHILE _FAIL_(X) = 
BEGIN 


X_PTR = ZNAME(X,"_PTR') ZQUOTE %, 
X" CONDX = XNAME(X;""CONDX') QUOTE %, 
X“TDT_IDX = XNAME(X,*"TDT_IDX') XQUOTE %; 


While we fail conditional tests 
WHILE 1 DO 
BEGIN 
LOCAL 
PASS; 
Unconditional tests are easy 
if NOT .X_PTRCO, X_CONDX] THEN EXITLOOP; 
We have a condition 
PASS = XIF ZBLISS(BLISS32) XTHEN SORSSTDT XELSE STDT XFI ¢ 
C ' Length/address of record 
TDTC.X_PTRCO,X_TDT_IDX],BASE_] | Address of TDT tests 


IF .PASS GTRU 1 THEN RETURN .PASS; ! Unexpected result 
IF .PASS EQLU 1 THEN EXITLOOP; ! We passed the test! 


' Advance to the next record definition 
X_PTR = X_PTRC1,BASE_); 


END; 
END %; 
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; 0488 ! | 
; 7h : Check that the fields are large enough | 
; 490 MACRO 
: 0491 0 S_CO.P.S.E] = 1°S 
3; M p48 M_(V,0,P,S,E)C) = fr V ha MINU(1*S=1,S_(ZREMAINING)) %THEN 

; 0493 {uARN(V,' is too Large’) FI %; 

: 0495 0 M_(FDT_MAX, CA_FDT_SIZ, TDT_FLD_ONE, TDT_FLD_TwO, KFT_FDT_IDX) 
: 0496 0 M~(TDT-MAX, CALTDT~SIZ, KFTZTDTIDX, RDT-TDT-IDXS 
: 0497 0 M~(KFTMAX, CATKFT“SIZ, RDT-KFT~IDXS 

; 0498 0 M~(RDT-MAX, CALRDT"SIZ, 0,078.07 

; 0499 0 MI(CFTIMAX, CATCFT~SIZ, KFT_FOT_IDX) 

: 0501 0 UNDECLARE XQUOTE S_, %QUOTE M_; 

; B206 0 

: 0503 0 f cosceereaeenentes esencoeneintvanandpanenennthsiieneisnenanetieiniaesiapsdinersaperesnnsnsnenenensheinelsdpaninanerenasiesenehinenssih 

H 0504 0 ! End of SRTSPC.REQ 

; Library Statistics | 
: ccccccee Symbols -------- Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 581 00:01.0 

; _$255$DUA28:(SO RT32-SRCISORL 1B <1 32:1 409 106 24 34 00:00.4 
: COMMAND QUALIFIERS 

; BLISS SRC$:SRTSPC/LIS=LIS$:SRTSPC/LIB=SRC$:SRTSPC | 
; Run Time: 00:06. ; 
; Elapsed Time: 00:26. 
3 Lines/CPU Min: 2638 
3 jonenee/ SAU Atgs nee 
; Memory Used: ages 

; Library bh 4. on Complete 
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